home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue67 / construc / DrBob42_s.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-01-31  |  4.4 KB  |  157 lines
  1. unit DrBob42_s;
  2.  
  3. {This file was generated on 31 Jan 2001 19:59:58 GMT by version 03.03.03.C1.06}
  4. {of the Inprise VisiBroker idl2pas CORBA IDL compiler.                        }
  5.  
  6. {Please do not edit the contents of this file. You should instead edit and    }
  7. {recompile the original IDL which was located in the file                     }
  8. {D:\usr\bob\magazine\DELPHI.MAG\#67\src\drbob42.idl.                          }
  9.  
  10. {Delphi Pascal unit      : DrBob42_s                                          }
  11. {derived from IDL module : DrBob42                                            }
  12.  
  13.  
  14.  
  15. interface
  16.  
  17. uses
  18.   CORBA,
  19.   DrBob42_i,
  20.   DrBob42_c;
  21.  
  22. type
  23.   TRatesSkeleton = class;
  24.   TAccountsSkeleton = class;
  25.  
  26.   TRatesSkeleton = class(CORBA.TCorbaObject, DrBob42_i.Rates)
  27.   private
  28.     FImplementation : Rates;
  29.   public
  30.     constructor Create(const InstanceName: string; const Impl: Rates);
  31.     destructor Destroy; override;
  32.     function GetImplementation : Rates;
  33.     function  interest_rate : Single;
  34.     procedure SetRate ( const rate : Single);
  35.   published
  36.     procedure _interest_rate(const _Input: CORBA.InputStream; _Cookie: Pointer);
  37.     procedure _SetRate(const _Input: CORBA.InputStream; _Cookie: Pointer);
  38.   end;
  39.  
  40.   TAccountsSkeleton = class(CORBA.TCorbaObject, DrBob42_i.Accounts)
  41.   private
  42.     FImplementation : Accounts;
  43.   public
  44.     constructor Create(const InstanceName: string; const Impl: Accounts);
  45.     destructor Destroy; override;
  46.     function GetImplementation : Accounts;
  47.     procedure AccountArrayTest ( const Accounts : DrBob42_i.AccountArray);
  48.     procedure AccountSequenceTest ( const Accounts : DrBob42_i.AccountSequence);
  49.   published
  50.     procedure _AccountArrayTest(const _Input: CORBA.InputStream; _Cookie: Pointer);
  51.     procedure _AccountSequenceTest(const _Input: CORBA.InputStream; _Cookie: Pointer);
  52.   end;
  53.  
  54.  
  55. implementation
  56.  
  57. constructor TRatesSkeleton.Create(const InstanceName : string; const Impl : DrBob42_i.Rates);
  58. begin
  59.   inherited;
  60.   inherited CreateSkeleton(InstanceName, 'Rates', 'IDL:DrBob42/Rates:1.0');
  61.   FImplementation := Impl;
  62. end;
  63.  
  64. destructor TRatesSkeleton.Destroy;
  65. begin
  66.   FImplementation := nil;
  67.   inherited;
  68. end;
  69.  
  70. function TRatesSkeleton.GetImplementation : DrBob42_i.Rates;
  71. begin
  72.   result := FImplementation as DrBob42_i.Rates;
  73. end;
  74.  
  75. function  TRatesSkeleton.interest_rate : Single;
  76. begin
  77.   Result := FImplementation.interest_rate;
  78. end;
  79.  
  80. procedure TRatesSkeleton.SetRate ( const rate : Single);
  81. begin
  82.   FImplementation.SetRate( rate);
  83. end;
  84.  
  85. procedure TRatesSkeleton._interest_rate(const _Input: CORBA.InputStream; _Cookie: Pointer);
  86. var
  87.   _Output : CORBA.OutputStream;
  88.   _Result : Single;
  89. begin
  90.   _Result := interest_rate;
  91.   GetReplyBuffer(_Cookie, _Output);
  92.   _Output.WriteFloat(_Result);
  93. end;
  94.  
  95. procedure TRatesSkeleton._SetRate(const _Input: CORBA.InputStream; _Cookie: Pointer);
  96. var
  97.   _Output : CORBA.OutputStream;
  98.   _rate : Single;
  99. begin
  100.   _Input.ReadFloat(_rate);
  101.   SetRate( _rate);
  102.   GetReplyBuffer(_Cookie, _Output);
  103. end;
  104.  
  105. constructor TAccountsSkeleton.Create(const InstanceName : string; const Impl : DrBob42_i.Accounts);
  106. begin
  107.   inherited;
  108.   inherited CreateSkeleton(InstanceName, 'Accounts', 'IDL:DrBob42/Accounts:1.0');
  109.   FImplementation := Impl;
  110. end;
  111.  
  112. destructor TAccountsSkeleton.Destroy;
  113. begin
  114.   FImplementation := nil;
  115.   inherited;
  116. end;
  117.  
  118. function TAccountsSkeleton.GetImplementation : DrBob42_i.Accounts;
  119. begin
  120.   result := FImplementation as DrBob42_i.Accounts;
  121. end;
  122.  
  123. procedure TAccountsSkeleton.AccountArrayTest ( const Accounts : DrBob42_i.AccountArray);
  124. begin
  125.   FImplementation.AccountArrayTest( Accounts);
  126. end;
  127.  
  128. procedure TAccountsSkeleton.AccountSequenceTest ( const Accounts : DrBob42_i.AccountSequence);
  129. begin
  130.   FImplementation.AccountSequenceTest( Accounts);
  131. end;
  132.  
  133. procedure TAccountsSkeleton._AccountArrayTest(const _Input: CORBA.InputStream; _Cookie: Pointer);
  134. var
  135.   _Output : CORBA.OutputStream;
  136.   _Accounts : DrBob42_i.AccountArray;
  137. begin
  138.   _Accounts := DrBob42_c.TAccountArrayHelper.Read(_Input);
  139.   AccountArrayTest( _Accounts);
  140.   GetReplyBuffer(_Cookie, _Output);
  141. end;
  142.  
  143. procedure TAccountsSkeleton._AccountSequenceTest(const _Input: CORBA.InputStream; _Cookie: Pointer);
  144. var
  145.   _Output : CORBA.OutputStream;
  146.   _Accounts : DrBob42_i.AccountSequence;
  147. begin
  148.   _Accounts := DrBob42_c.TAccountSequenceHelper.Read(_Input);
  149.   AccountSequenceTest( _Accounts);
  150.   GetReplyBuffer(_Cookie, _Output);
  151. end;
  152.  
  153.  
  154. initialization
  155.  
  156.  
  157. end.